50000 V=53248
50010 FOR C1= 1 TO 16
50020 POKE V + C1, 0
50030 NEXT
50040 POKE V + 17, 27
50050 POKE V + 21, 0
50060 POKE V + 22, 200
50070 POKE V + 23, 0
50080 POKE V + 24, 21
50090 POKE V + 26, 240
50100 FOR C1 = 27 TO 46
50110 POKE V + C1, 0
50120 NEXT
50130 FOR C1 = 2040 TO 2047
50140 POKE C1, 13
50150 NEXT
50160 POKE 646, 14
50170 REM   **** PUT A RETURN HERE ****
50180 REM   **** IF YOU USE THIS   ****
50190 REM   **** AS A SUBROUTINE.  ****